DATA: ls_record_doc_id TYPE sdokobject,
lv_document_id TYPE bapisrmrec-docid,
lv_description TYPE bapisrmrec-descr,
lv_model_sps_id TYPE bapisrmrec-spsid,
lv_model_document_id TYPE bapisrmrec-docid,
lv_model_doc_id TYPE sdokobject,
lv_return TYPE bapiret2,
lv_pernr TYPE p0000-pernr.
DATA: lo_document TYPE REF TO cl_srm_document.
* Personalnummer des Mitarbeiters:
lv_pernr = '1000'.
lv_document_id = lv_pernr.
* Name des Mitarbeiters:
lv_description = 'Bernd Braun'.
lv_model_doc_id = ls_otype_para-rec_model_id.
CREATE OBJECT lo_document
EXPORTING
doc_id = lv_model_doc_id
EXCEPTIONS
OTHERS = 1.
lv_model_sps_id = lo_document->get_property(
'SRM_SPS_ID' ).
lv_model_document_id = lo_document->get_property(
'SRM_DOCUMENT_ID' ).
CALL FUNCTION 'BAPI_RECORD_CREATE'
EXPORTING
rms_id = ls_scnid_para-rms_id
sps_id = ls_otype_para-rec_sps_id
documentid = lv_document_id
description = lv_description
model_sps_id = lv_model_sps_id
model = lv_model_document_id
documentid_check_unique = 'X'
IMPORTING
return = lv_return
objectid = ls_record_doc_id-objid
documentclass = ls_record_doc_id-class.
commit work.